/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / timezone.elc.z / timezone.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 70 73 |piled by| kwzh@ps|
|00000020| 69 6c 6f 63 69 6e 2e 67 | 6e 75 2e 61 69 2e 6d 69 |ilocin.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 20 37 20 32 30 3a 31 | 31 3a 32 33 20 31 39 39 |  7 20:1|1:23 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 74 69 6d 65 7a 6f 6e 65 |.0/lisp/|timezone|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 33 31 2e 39 31 2e 31 |rsion 19|.31.91.1|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000190| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001a0| 20 22 60 74 69 6d 65 7a | 6f 6e 65 2e 65 6c 27 20 | "`timez|one.el' |
|000001b0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001c0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001d0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 28 70 72 6f 76 |later"))|...(prov|
|000001e0| 69 64 65 20 28 71 75 6f | 74 65 20 74 69 6d 65 7a |ide (quo|te timez|
|000001f0| 6f 6e 65 29 29 0a 23 40 | 32 31 37 20 2a 54 69 6d |one)).#@|217 *Tim|
|00000200| 65 20 64 69 66 66 65 72 | 65 6e 74 69 61 6c 73 20 |e differ|entials |
|00000210| 6f 66 20 74 69 6d 65 7a | 6f 6e 65 20 66 72 6f 6d |of timez|one from|
|00000220| 20 47 4d 54 20 69 6e 20 | 2b 2d 48 48 4d 4d 20 66 | GMT in |+-HHMM f|
|00000230| 6f 72 6d 2e 0a 54 68 69 | 73 20 6c 69 73 74 20 69 |orm..Thi|s list i|
|00000240| 73 20 6f 62 73 6f 6c 65 | 73 63 65 6e 74 2c 20 61 |s obsole|scent, a|
|00000250| 6e 64 20 69 73 20 70 72 | 65 73 65 6e 74 20 6f 6e |nd is pr|esent on|
|00000260| 6c 79 20 66 6f 72 20 62 | 61 63 6b 77 61 72 64 73 |ly for b|ackwards|
|00000270| 20 63 6f 6d 70 61 74 69 | 62 69 6c 69 74 79 2c 0a | compati|bility,.|
|00000280| 62 65 63 61 75 73 65 20 | 74 69 6d 65 20 7a 6f 6e |because |time zon|
|00000290| 65 20 6e 61 6d 65 73 20 | 61 72 65 20 61 6d 62 69 |e names |are ambi|
|000002a0| 67 75 6f 75 73 20 69 6e | 20 70 72 61 63 74 69 63 |guous in| practic|
|000002b0| 65 2e 0a 55 73 65 20 60 | 63 75 72 72 65 6e 74 2d |e..Use `|current-|
|000002c0| 74 69 6d 65 2d 7a 6f 6e | 65 27 20 69 6e 73 74 65 |time-zon|e' inste|
|000002d0| 61 64 2e 1f 0a 28 64 65 | 66 76 61 72 20 74 69 6d |ad...(de|fvar tim|
|000002e0| 65 7a 6f 6e 65 2d 77 6f | 72 6c 64 2d 74 69 6d 65 |ezone-wo|rld-time|
|000002f0| 7a 6f 6e 65 73 20 28 71 | 75 6f 74 65 20 28 28 22 |zones (q|uote (("|
|00000300| 50 53 54 22 20 2e 20 2d | 38 30 30 29 20 28 22 50 |PST" . -|800) ("P|
|00000310| 44 54 22 20 2e 20 2d 37 | 30 30 29 20 28 22 4d 53 |DT" . -7|00) ("MS|
|00000320| 54 22 20 2e 20 2d 37 30 | 30 29 20 28 22 4d 44 54 |T" . -70|0) ("MDT|
|00000330| 22 20 2e 20 2d 36 30 30 | 29 20 28 22 43 53 54 22 |" . -600|) ("CST"|
|00000340| 20 2e 20 2d 36 30 30 29 | 20 28 22 43 44 54 22 20 | . -600)| ("CDT" |
|00000350| 2e 20 2d 35 30 30 29 20 | 28 22 45 53 54 22 20 2e |. -500) |("EST" .|
|00000360| 20 2d 35 30 30 29 20 28 | 22 45 44 54 22 20 2e 20 | -500) (|"EDT" . |
|00000370| 2d 34 30 30 29 20 28 22 | 41 53 54 22 20 2e 20 2d |-400) ("|AST" . -|
|00000380| 34 30 30 29 20 28 22 4e | 53 54 22 20 2e 20 2d 33 |400) ("N|ST" . -3|
|00000390| 33 30 29 20 28 22 55 54 | 22 20 2e 20 30 29 20 28 |30) ("UT|" . 0) (|
|000003a0| 22 47 4d 54 22 20 2e 20 | 30 29 20 28 22 42 53 54 |"GMT" . |0) ("BST|
|000003b0| 22 20 2e 20 31 30 30 29 | 20 28 22 4d 45 54 22 20 |" . 100)| ("MET" |
|000003c0| 2e 20 31 30 30 29 20 28 | 22 45 45 54 22 20 2e 20 |. 100) (|"EET" . |
|000003d0| 32 30 30 29 20 28 22 4a | 53 54 22 20 2e 20 39 30 |200) ("J|ST" . 90|
|000003e0| 30 29 20 28 22 47 4d 54 | 2b 31 22 20 2e 20 31 30 |0) ("GMT|+1" . 10|
|000003f0| 30 29 20 28 22 47 4d 54 | 2b 32 22 20 2e 20 32 30 |0) ("GMT|+2" . 20|
|00000400| 30 29 20 28 22 47 4d 54 | 2b 33 22 20 2e 20 33 30 |0) ("GMT|+3" . 30|
|00000410| 30 29 20 28 22 47 4d 54 | 2b 34 22 20 2e 20 34 30 |0) ("GMT|+4" . 40|
|00000420| 30 29 20 28 22 47 4d 54 | 2b 35 22 20 2e 20 35 30 |0) ("GMT|+5" . 50|
|00000430| 30 29 20 28 22 47 4d 54 | 2b 36 22 20 2e 20 36 30 |0) ("GMT|+6" . 60|
|00000440| 30 29 20 28 22 47 4d 54 | 2b 37 22 20 2e 20 37 30 |0) ("GMT|+7" . 70|
|00000450| 30 29 20 28 22 47 4d 54 | 2b 38 22 20 2e 20 38 30 |0) ("GMT|+8" . 80|
|00000460| 30 29 20 28 22 47 4d 54 | 2b 39 22 20 2e 20 39 30 |0) ("GMT|+9" . 90|
|00000470| 30 29 20 28 22 47 4d 54 | 2b 31 30 22 20 2e 20 31 |0) ("GMT|+10" . 1|
|00000480| 30 30 30 29 20 28 22 47 | 4d 54 2b 31 31 22 20 2e |000) ("G|MT+11" .|
|00000490| 20 31 31 30 30 29 20 28 | 22 47 4d 54 2b 31 32 22 | 1100) (|"GMT+12"|
|000004a0| 20 2e 20 31 32 30 30 29 | 20 28 22 47 4d 54 2b 31 | . 1200)| ("GMT+1|
|000004b0| 33 22 20 2e 20 31 33 30 | 30 29 20 28 22 47 4d 54 |3" . 130|0) ("GMT|
|000004c0| 2d 31 22 20 2e 20 2d 31 | 30 30 29 20 28 22 47 4d |-1" . -1|00) ("GM|
|000004d0| 54 2d 32 22 20 2e 20 2d | 32 30 30 29 20 28 22 47 |T-2" . -|200) ("G|
|000004e0| 4d 54 2d 33 22 20 2e 20 | 2d 33 30 30 29 20 28 22 |MT-3" . |-300) ("|
|000004f0| 47 4d 54 2d 34 22 20 2e | 20 2d 34 30 30 29 20 28 |GMT-4" .| -400) (|
|00000500| 22 47 4d 54 2d 35 22 20 | 2e 20 2d 35 30 30 29 20 |"GMT-5" |. -500) |
|00000510| 28 22 47 4d 54 2d 36 22 | 20 2e 20 2d 36 30 30 29 |("GMT-6"| . -600)|
|00000520| 20 28 22 47 4d 54 2d 37 | 22 20 2e 20 2d 37 30 30 | ("GMT-7|" . -700|
|00000530| 29 20 28 22 47 4d 54 2d | 38 22 20 2e 20 2d 38 30 |) ("GMT-|8" . -80|
|00000540| 30 29 20 28 22 47 4d 54 | 2d 39 22 20 2e 20 2d 39 |0) ("GMT|-9" . -9|
|00000550| 30 30 29 20 28 22 47 4d | 54 2d 31 30 22 20 2e 20 |00) ("GM|T-10" . |
|00000560| 2d 31 30 30 30 29 20 28 | 22 47 4d 54 2d 31 31 22 |-1000) (|"GMT-11"|
|00000570| 20 2e 20 2d 31 31 30 30 | 29 20 28 22 47 4d 54 2d | . -1100|) ("GMT-|
|00000580| 31 32 22 20 2e 20 2d 31 | 32 30 30 29 29 29 20 28 |12" . -1|200))) (|
|00000590| 23 24 20 2e 20 2d 35 30 | 38 29 29 0a 23 40 37 35 |#$ . -50|8)).#@75|
|000005a0| 20 41 6c 69 73 74 20 6f | 66 20 66 69 72 73 74 20 | Alist o|f first |
|000005b0| 74 68 72 65 65 20 6c 65 | 74 74 65 72 73 20 6f 66 |three le|tters of|
|000005c0| 20 61 20 6d 6f 6e 74 68 | 20 61 6e 64 20 69 74 73 | a month| and its|
|000005d0| 20 6e 75 6d 65 72 69 63 | 61 6c 20 72 65 70 72 65 | numeric|al repre|
|000005e0| 73 65 6e 74 61 74 69 6f | 6e 2e 1f 0a 28 64 65 66 |sentatio|n...(def|
|000005f0| 76 61 72 20 74 69 6d 65 | 7a 6f 6e 65 2d 6d 6f 6e |var time|zone-mon|
|00000600| 74 68 73 2d 61 73 73 6f | 63 20 28 71 75 6f 74 65 |ths-asso|c (quote|
|00000610| 20 28 28 22 4a 41 4e 22 | 20 2e 20 31 29 20 28 22 | (("JAN"| . 1) ("|
|00000620| 46 45 42 22 20 2e 20 32 | 29 20 28 22 4d 41 52 22 |FEB" . 2|) ("MAR"|
|00000630| 20 2e 20 33 29 20 28 22 | 41 50 52 22 20 2e 20 34 | . 3) ("|APR" . 4|
|00000640| 29 20 28 22 4d 41 59 22 | 20 2e 20 35 29 20 28 22 |) ("MAY"| . 5) ("|
|00000650| 4a 55 4e 22 20 2e 20 36 | 29 20 28 22 4a 55 4c 22 |JUN" . 6|) ("JUL"|
|00000660| 20 2e 20 37 29 20 28 22 | 41 55 47 22 20 2e 20 38 | . 7) ("|AUG" . 8|
|00000670| 29 20 28 22 53 45 50 22 | 20 2e 20 39 29 20 28 22 |) ("SEP"| . 9) ("|
|00000680| 4f 43 54 22 20 2e 20 31 | 30 29 20 28 22 4e 4f 56 |OCT" . 1|0) ("NOV|
|00000690| 22 20 2e 20 31 31 29 20 | 28 22 44 45 43 22 20 2e |" . 11) |("DEC" .|
|000006a0| 20 31 32 29 29 29 20 28 | 23 24 20 2e 20 31 34 34 | 12))) (|#$ . 144|
|000006b0| 31 29 29 0a 23 40 32 36 | 30 20 43 6f 6e 76 65 72 |1)).#@26|0 Conver|
|000006c0| 74 20 44 41 54 45 20 74 | 6f 20 61 6e 20 61 72 70 |t DATE t|o an arp|
|000006d0| 61 6e 65 74 20 73 74 61 | 6e 64 61 72 64 20 64 61 |anet sta|ndard da|
|000006e0| 74 65 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 31 73 74 |te..Opti|onal 1st|
|000006f0| 20 61 72 67 75 6d 65 6e | 74 20 4c 4f 43 41 4c 20 | argumen|t LOCAL |
|00000700| 73 70 65 63 69 66 69 65 | 73 20 74 68 65 20 64 65 |specifie|s the de|
|00000710| 66 61 75 6c 74 20 6c 6f | 63 61 6c 20 74 69 6d 65 |fault lo|cal time|
|00000720| 7a 6f 6e 65 20 6f 66 20 | 74 68 65 20 44 41 54 45 |zone of |the DATE|
|00000730| 3b 0a 69 66 20 6e 69 6c | 2c 20 47 4d 54 20 69 73 |;.if nil|, GMT is|
|00000740| 20 61 73 73 75 6d 65 64 | 2e 0a 4f 70 74 69 6f 6e | assumed|..Option|
|00000750| 61 6c 20 32 6e 64 20 61 | 72 67 75 6d 65 6e 74 20 |al 2nd a|rgument |
|00000760| 54 49 4d 45 5a 4f 4e 45 | 20 73 70 65 63 69 66 69 |TIMEZONE| specifi|
|00000770| 65 73 20 61 20 74 69 6d | 65 20 7a 6f 6e 65 20 74 |es a tim|e zone t|
|00000780| 6f 20 62 65 20 72 65 70 | 72 65 73 65 6e 74 65 64 |o be rep|resented|
|00000790| 20 69 6e 3b 0a 69 66 20 | 6e 69 6c 2c 20 74 68 65 | in;.if |nil, the|
|000007a0| 20 6c 6f 63 61 6c 20 74 | 69 6d 65 20 7a 6f 6e 65 | local t|ime zone|
|000007b0| 20 69 73 20 61 73 73 75 | 6d 65 64 2e 1f 0a 28 64 | is assu|med...(d|
|000007c0| 65 66 61 6c 69 61 73 20 | 27 74 69 6d 65 7a 6f 6e |efalias |'timezon|
|000007d0| 65 2d 6d 61 6b 65 2d 64 | 61 74 65 2d 61 72 70 61 |e-make-d|ate-arpa|
|000007e0| 2d 73 74 61 6e 64 61 72 | 64 20 23 5b 28 64 61 74 |-standar|d #[(dat|
|000007f0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 6c 6f 63 61 |e &optio|nal loca|
|00000800| 6c 20 74 69 6d 65 7a 6f | 6e 65 29 20 22 c0 09 5c |l timezo|ne) "..\|
|00000810| 6e 0b 23 1c c5 5c 66 c6 | 48 5c 66 c7 48 5c 66 c8 |n.#..\f.|H\f.H\f.|
|00000820| 48 c9 5c 66 ca 48 5c 66 | cb 48 5c 66 cc 48 23 5c |H.\f.H\f|.H\f.H#\|
|00000830| 66 cd 48 25 29 87 22 20 | 5b 74 69 6d 65 7a 6f 6e |f.H%)." |[timezon|
|00000840| 65 2d 66 69 78 2d 74 69 | 6d 65 20 64 61 74 65 20 |e-fix-ti|me date |
|00000850| 6c 6f 63 61 6c 20 74 69 | 6d 65 7a 6f 6e 65 20 6e |local ti|mezone n|
|00000860| 65 77 20 74 69 6d 65 7a | 6f 6e 65 2d 6d 61 6b 65 |ew timez|one-make|
|00000870| 2d 61 72 70 61 2d 64 61 | 74 65 20 30 20 31 20 32 |-arpa-da|te 0 1 2|
|00000880| 20 74 69 6d 65 7a 6f 6e | 65 2d 6d 61 6b 65 2d 74 | timezon|e-make-t|
|00000890| 69 6d 65 2d 73 74 72 69 | 6e 67 20 33 20 34 20 35 |ime-stri|ng 3 4 5|
|000008a0| 20 36 5d 20 39 20 28 23 | 24 20 2e 20 31 37 32 32 | 6] 9 (#|$ . 1722|
|000008b0| 29 5d 29 0a 23 40 32 35 | 37 20 43 6f 6e 76 65 72 |)]).#@25|7 Conver|
|000008c0| 74 20 44 41 54 45 20 74 | 6f 20 61 20 73 6f 72 74 |t DATE t|o a sort|
|000008d0| 61 62 6c 65 20 64 61 74 | 65 20 73 74 72 69 6e 67 |able dat|e string|
|000008e0| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 31 73 74 20 61 |..Option|al 1st a|
|000008f0| 72 67 75 6d 65 6e 74 20 | 4c 4f 43 41 4c 20 73 70 |rgument |LOCAL sp|
|00000900| 65 63 69 66 69 65 73 20 | 74 68 65 20 64 65 66 61 |ecifies |the defa|
|00000910| 75 6c 74 20 6c 6f 63 61 | 6c 20 74 69 6d 65 7a 6f |ult loca|l timezo|
|00000920| 6e 65 20 6f 66 20 74 68 | 65 20 44 41 54 45 3b 0a |ne of th|e DATE;.|
|00000930| 69 66 20 6e 69 6c 2c 20 | 47 4d 54 20 69 73 20 61 |if nil, |GMT is a|
|00000940| 73 73 75 6d 65 64 2e 0a | 4f 70 74 69 6f 6e 61 6c |ssumed..|Optional|
|00000950| 20 32 6e 64 20 61 72 67 | 75 6d 65 6e 74 20 54 49 | 2nd arg|ument TI|
|00000960| 4d 45 5a 4f 4e 45 20 73 | 70 65 63 69 66 69 65 73 |MEZONE s|pecifies|
|00000970| 20 61 20 74 69 6d 65 7a | 6f 6e 65 20 74 6f 20 62 | a timez|one to b|
|00000980| 65 20 72 65 70 72 65 73 | 65 6e 74 65 64 20 69 6e |e repres|ented in|
|00000990| 3b 0a 69 66 20 6e 69 6c | 2c 20 74 68 65 20 6c 6f |;.if nil|, the lo|
|000009a0| 63 61 6c 20 74 69 6d 65 | 20 7a 6f 6e 65 20 69 73 |cal time| zone is|
|000009b0| 20 61 73 73 75 6d 65 64 | 2e 1f 0a 28 64 65 66 61 | assumed|...(defa|
|000009c0| 6c 69 61 73 20 27 74 69 | 6d 65 7a 6f 6e 65 2d 6d |lias 'ti|mezone-m|
|000009d0| 61 6b 65 2d 64 61 74 65 | 2d 73 6f 72 74 61 62 6c |ake-date|-sortabl|
|000009e0| 65 20 23 5b 28 64 61 74 | 65 20 26 6f 70 74 69 6f |e #[(dat|e &optio|
|000009f0| 6e 61 6c 20 6c 6f 63 61 | 6c 20 74 69 6d 65 7a 6f |nal loca|l timezo|
|00000a00| 6e 65 29 20 22 c0 09 5c | 6e 0b 23 1c c5 5c 66 c6 |ne) "..\|n.#..\f.|
|00000a10| 48 5c 66 c7 48 5c 66 c8 | 48 c9 5c 66 ca 48 5c 66 |H\f.H\f.|H.\f.H\f|
|00000a20| cb 48 5c 66 cc 48 23 24 | 29 87 22 20 5b 74 69 6d |.H\f.H#$|)." [tim|
|00000a30| 65 7a 6f 6e 65 2d 66 69 | 78 2d 74 69 6d 65 20 64 |ezone-fi|x-time d|
|00000a40| 61 74 65 20 6c 6f 63 61 | 6c 20 74 69 6d 65 7a 6f |ate loca|l timezo|
|00000a50| 6e 65 20 6e 65 77 20 74 | 69 6d 65 7a 6f 6e 65 2d |ne new t|imezone-|
|00000a60| 6d 61 6b 65 2d 73 6f 72 | 74 61 62 6c 65 2d 64 61 |make-sor|table-da|
|00000a70| 74 65 20 30 20 31 20 32 | 20 74 69 6d 65 7a 6f 6e |te 0 1 2| timezon|
|00000a80| 65 2d 6d 61 6b 65 2d 74 | 69 6d 65 2d 73 74 72 69 |e-make-t|ime-stri|
|00000a90| 6e 67 20 33 20 34 20 35 | 5d 20 39 20 28 23 24 20 |ng 3 4 5|] 9 (#$ |
|00000aa0| 2e 20 32 32 33 34 29 5d | 29 0a 23 40 31 31 38 20 |. 2234)]|).#@118 |
|00000ab0| 4d 61 6b 65 20 61 72 70 | 61 6e 65 74 20 73 74 61 |Make arp|anet sta|
|00000ac0| 6e 64 61 72 64 20 64 61 | 74 65 20 73 74 72 69 6e |ndard da|te strin|
|00000ad0| 67 20 66 72 6f 6d 20 59 | 45 41 52 2c 20 4d 4f 4e |g from Y|EAR, MON|
|00000ae0| 54 48 2c 20 44 41 59 2c | 20 61 6e 64 20 54 49 4d |TH, DAY,| and TIM|
|00000af0| 45 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 75 |E..Optio|nal argu|
|00000b00| 6d 65 6e 74 20 54 49 4d | 45 5a 4f 4e 45 20 73 70 |ment TIM|EZONE sp|
|00000b10| 65 63 69 66 69 65 73 20 | 61 20 74 69 6d 65 20 7a |ecifies |a time z|
|00000b20| 6f 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |one...(d|efalias |
|00000b30| 27 74 69 6d 65 7a 6f 6e | 65 2d 6d 61 6b 65 2d 61 |'timezon|e-make-a|
|00000b40| 72 70 61 2d 64 61 74 65 | 20 23 5b 28 79 65 61 72 |rpa-date| #[(year|
|00000b50| 20 6d 6f 6e 74 68 20 64 | 61 79 20 74 69 6d 65 20 | month d|ay time |
|00000b60| 26 6f 70 74 69 6f 6e 61 | 6c 20 74 69 6d 65 7a 6f |&optiona|l timezo|
|00000b70| 6e 65 29 20 22 08 3c 83 | 2e 00 c1 08 21 89 1a c3 |ne) ".<.|....!...|
|00000b80| 57 83 14 00 5c 6e 5b 82 | 15 00 5c 6e 1c c5 c6 5c |W...\n[.|..\n...\|
|00000b90| 6e c3 57 83 5c 22 00 c7 | 82 23 00 c8 5c 66 c9 a5 |n.W.\"..|.#..\f..|
|00000ba0| 5c 66 c9 a6 24 2a 82 2f | 00 08 1e 5c 6e c5 cb 0e |\f..$*./|...\n...|
|00000bb0| 5c 66 cd ce 0e 0f 0e 10 | 5c 22 40 21 0e 11 0e 12 |\f......|\"@!....|
|00000bc0| 0e 5c 6e 26 06 29 87 22 | 20 5b 74 69 6d 65 7a 6f |.\n&.)."| [timezo|
|00000bd0| 6e 65 20 74 69 6d 65 7a | 6f 6e 65 2d 7a 6f 6e 65 |ne timez|one-zone|
|00000be0| 2d 74 6f 2d 6d 69 6e 75 | 74 65 20 6d 20 30 20 61 |-to-minu|te m 0 a|
|00000bf0| 62 73 6d 20 66 6f 72 6d | 61 74 20 22 25 63 25 30 |bsm form|at "%c%0|
|00000c00| 32 64 25 30 32 64 22 20 | 34 35 20 34 33 20 36 30 |2d%02d" |45 43 60|
|00000c10| 20 7a 6f 6e 65 20 22 25 | 30 32 64 20 25 73 20 25 | zone "%|02d %s %|
|00000c20| 30 34 64 20 25 73 20 25 | 73 22 20 64 61 79 20 63 |04d %s %|s" day c|
|00000c30| 61 70 69 74 61 6c 69 7a | 65 20 72 61 73 73 71 20 |apitaliz|e rassq |
|00000c40| 6d 6f 6e 74 68 20 74 69 | 6d 65 7a 6f 6e 65 2d 6d |month ti|mezone-m|
|00000c50| 6f 6e 74 68 73 2d 61 73 | 73 6f 63 20 79 65 61 72 |onths-as|soc year|
|00000c60| 20 74 69 6d 65 5d 20 38 | 20 28 23 24 20 2e 20 32 | time] 8| (#$ . 2|
|00000c70| 37 33 36 29 5d 29 0a 23 | 40 36 30 20 4d 61 6b 65 |736)]).#|@60 Make|
|00000c80| 20 73 6f 72 74 61 62 6c | 65 20 64 61 74 65 20 73 | sortabl|e date s|
|00000c90| 74 72 69 6e 67 20 66 72 | 6f 6d 20 59 45 41 52 2c |tring fr|om YEAR,|
|00000ca0| 20 4d 4f 4e 54 48 2c 20 | 44 41 59 2c 20 61 6e 64 | MONTH, |DAY, and|
|00000cb0| 20 54 49 4d 45 2e 1f 0a | 28 64 65 66 61 6c 69 61 | TIME...|(defalia|
|00000cc0| 73 20 27 74 69 6d 65 7a | 6f 6e 65 2d 6d 61 6b 65 |s 'timez|one-make|
|00000cd0| 2d 73 6f 72 74 61 62 6c | 65 2d 64 61 74 65 20 23 |-sortabl|e-date #|
|00000ce0| 5b 28 79 65 61 72 20 6d | 6f 6e 74 68 20 64 61 79 |[(year m|onth day|
|00000cf0| 20 74 69 6d 65 29 20 22 | c0 c1 5c 6e 0b 5c 66 0d | time) "|..\n.\f.|
|00000d00| 25 87 22 20 5b 66 6f 72 | 6d 61 74 20 22 25 34 64 |%." [for|mat "%4d|
|00000d10| 25 30 32 64 25 30 32 64 | 25 73 22 20 79 65 61 72 |%02d%02d|%s" year|
|00000d20| 20 6d 6f 6e 74 68 20 64 | 61 79 20 74 69 6d 65 5d | month d|ay time]|
|00000d30| 20 36 20 28 23 24 20 2e | 20 33 31 39 36 29 5d 29 | 6 (#$ .| 3196)])|
|00000d40| 0a 23 40 34 39 20 4d 61 | 6b 65 20 74 69 6d 65 20 |.#@49 Ma|ke time |
|00000d50| 73 74 72 69 6e 67 20 66 | 72 6f 6d 20 48 4f 55 52 |string f|rom HOUR|
|00000d60| 2c 20 4d 49 4e 55 54 45 | 2c 20 61 6e 64 20 53 45 |, MINUTE|, and SE|
|00000d70| 43 4f 4e 44 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |COND...(|defalias|
|00000d80| 20 27 74 69 6d 65 7a 6f | 6e 65 2d 6d 61 6b 65 2d | 'timezo|ne-make-|
|00000d90| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 23 5b 28 68 |time-str|ing #[(h|
|00000da0| 6f 75 72 20 6d 69 6e 75 | 74 65 20 73 65 63 6f 6e |our minu|te secon|
|00000db0| 64 29 20 22 c0 c1 5c 6e | 0b 5c 66 24 87 22 20 5b |d) "..\n|.\f$." [|
|00000dc0| 66 6f 72 6d 61 74 20 22 | 25 30 32 64 3a 25 30 32 |format "|%02d:%02|
|00000dd0| 64 3a 25 30 32 64 22 20 | 68 6f 75 72 20 6d 69 6e |d:%02d" |hour min|
|00000de0| 75 74 65 20 73 65 63 6f | 6e 64 5d 20 35 20 28 23 |ute seco|nd] 5 (#|
|00000df0| 24 20 2e 20 33 33 39 38 | 29 5d 29 0a 23 40 34 34 |$ . 3398|)]).#@44|
|00000e00| 36 20 50 61 72 73 65 20 | 44 41 54 45 20 61 6e 64 |6 Parse |DATE and|
|00000e10| 20 72 65 74 75 72 6e 20 | 61 20 76 65 63 74 6f 72 | return |a vector|
|00000e20| 20 5b 59 45 41 52 20 4d | 4f 4e 54 48 20 44 41 59 | [YEAR M|ONTH DAY|
|00000e30| 20 54 49 4d 45 20 54 49 | 4d 45 5a 4f 4e 45 5d 2e | TIME TI|MEZONE].|
|00000e40| 0a 31 39 20 69 73 20 70 | 72 65 70 65 6e 64 65 64 |.19 is p|repended|
|00000e50| 20 74 6f 20 79 65 61 72 | 20 69 66 20 6e 65 63 65 | to year| if nece|
|00000e60| 73 73 61 72 79 2e 20 20 | 54 69 6d 65 7a 6f 6e 65 |ssary.  |Timezone|
|00000e70| 20 6d 61 79 20 62 65 20 | 6e 69 6c 20 69 66 20 6e | may be |nil if n|
|00000e80| 6f 74 68 69 6e 67 2e 0a | 55 6e 64 65 72 73 74 61 |othing..|Understa|
|00000e90| 6e 64 73 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |nds the |followin|
|00000ea0| 67 20 73 74 79 6c 65 73 | 3a 0a 20 28 31 29 20 31 |g styles|:. (1) 1|
|00000eb0| 34 20 41 70 72 20 38 39 | 20 30 33 3a 32 30 5b 3a |4 Apr 89| 03:20[:|
|00000ec0| 31 32 5d 20 5b 47 4d 54 | 5d 0a 20 28 32 29 20 46 |12] [GMT|]. (2) F|
|00000ed0| 72 69 2c 20 31 37 20 4d | 61 72 20 38 39 20 34 3a |ri, 17 M|ar 89 4:|
|00000ee0| 30 31 5b 3a 33 33 5d 20 | 5b 47 4d 54 5d 0a 20 28 |01[:33] |[GMT]. (|
|00000ef0| 33 29 20 4d 6f 6e 20 4a | 61 6e 20 31 36 20 31 36 |3) Mon J|an 16 16|
|00000f00| 3a 31 32 5b 3a 33 37 5d | 20 5b 47 4d 54 5d 20 31 |:12[:37]| [GMT] 1|
|00000f10| 39 38 39 0a 20 28 34 29 | 20 36 20 4d 61 79 20 31 |989. (4)| 6 May 1|
|00000f20| 39 39 32 20 31 36 34 31 | 2d 4a 53 54 20 28 57 65 |992 1641|-JST (We|
|00000f30| 64 6e 65 73 64 61 79 29 | 0a 20 28 35 29 20 32 32 |dnesday)|. (5) 22|
|00000f40| 2d 41 55 47 2d 31 39 39 | 33 20 31 30 3a 35 39 3a |-AUG-199|3 10:59:|
|00000f50| 31 32 2e 38 32 0a 20 28 | 36 29 20 54 68 75 2c 20 |12.82. (|6) Thu, |
|00000f60| 31 31 20 41 70 72 20 31 | 36 3a 31 37 3a 31 32 20 |11 Apr 1|6:17:12 |
|00000f70| 39 31 20 5b 4d 45 54 5d | 0a 20 28 37 29 20 4d 6f |91 [MET]|. (7) Mo|
|00000f80| 6e 2c 20 36 20 20 4a 75 | 6c 20 31 36 3a 34 37 3a |n, 6  Ju|l 16:47:|
|00000f90| 32 30 20 54 20 31 39 39 | 32 20 5b 4d 45 54 5d 0a |20 T 199|2 [MET].|
|00000fa0| 20 28 38 29 20 31 39 39 | 36 2d 30 36 2d 32 34 20 | (8) 199|6-06-24 |
|00000fb0| 32 31 3a 31 33 3a 31 32 | 20 5b 47 4d 54 5d 1f 0a |21:13:12| [GMT]..|
|00000fc0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|00000fd0| 6f 6e 65 2d 70 61 72 73 | 65 2d 64 61 74 65 20 23 |one-pars|e-date #|
|00000fe0| 5b 28 64 61 74 65 29 20 | 22 08 3b 83 23 00 c1 c2 |[(date) |".;.#...|
|00000ff0| 08 5c 22 84 13 00 c3 c2 | 08 5c 22 83 23 00 c4 08 |.\".....|.\".#...|
|00001000| 21 89 10 83 23 00 c5 c2 | 08 47 c6 08 24 88 08 86 |!...#...|.G..$...|
|00001010| 28 00 c7 c6 89 89 89 89 | 1e 08 1e 09 1e 5c 6e 1e |(.......|.....\n.|
|00001020| 0b 1e 5c 66 18 cd ce 08 | 5c 22 83 51 00 cf 16 5c |..\f....|\".Q...\|
|00001030| 66 d0 16 0b d1 16 5c 6e | d2 16 09 c6 16 08 82 2f |f.....\n|......./|
|00001040| 01 cd d3 08 5c 22 83 6a | 00 cf 16 5c 66 d0 16 0b |....\".j|...\f...|
|00001050| d1 16 5c 6e d2 16 09 d4 | 16 08 82 2f 01 cd d5 08 |..\n....|.../....|
|00001060| 5c 22 83 83 00 d0 16 5c | 66 d1 16 0b d6 16 5c 6e |\".....\|f.....\n|
|00001070| d2 16 09 c6 16 08 82 2f | 01 cd d7 08 5c 22 83 9c |......./|....\"..|
|00001080| 00 d0 16 5c 66 d1 16 0b | d6 16 5c 6e d2 16 09 d8 |...\f...|..\n....|
|00001090| 16 08 82 2f 01 cd d9 08 | 5c 22 83 b5 00 d2 16 5c |.../....|\".....\|
|000010a0| 66 d6 16 0b d1 16 5c 6e | d0 16 09 c6 16 08 82 2f |f.....\n|......./|
|000010b0| 01 cd da 08 5c 22 83 ce | 00 d8 16 5c 66 d6 16 0b |....\"..|...\f...|
|000010c0| d1 16 5c 6e d0 16 09 d2 | 16 08 82 2f 01 cd db 08 |..\n....|.../....|
|000010d0| 5c 22 83 e7 00 d0 16 5c | 66 d1 16 0b d6 16 5c 6e |\".....\|f.....\n|
|000010e0| d2 16 09 d8 16 08 82 2f | 01 cd dc 08 5c 22 83 00 |......./|....\"..|
|000010f0| 01 d0 16 5c 66 d1 16 0b | d6 16 5c 6e d2 16 09 c6 |...\f...|..\n....|
|00001100| 16 08 82 2f 01 cd dd 08 | 5c 22 83 19 01 d6 16 5c |.../....|\".....\|
|00001110| 66 d1 16 0b d0 16 5c 6e | d2 16 09 d8 16 08 82 2f |f.....\n|......./|
|00001120| 01 cd de 08 5c 22 83 2f | 01 d6 16 5c 66 d1 16 0b |....\"./|...\f...|
|00001130| d0 16 5c 6e d2 16 09 c6 | 16 08 0e 5c 66 83 94 01 |..\n....|...\f...|
|00001140| 08 0e 5c 66 94 0e 5c 66 | 95 4f 89 16 5c 66 47 d2 |..\f..\f|.O..\fG.|
|00001150| 57 83 4e 01 df 0e 5c 66 | e0 c6 4f 50 16 5c 66 08 |W.N...\f|..OP.\f.|
|00001160| 0e 0b 94 d1 5c 5c 48 e1 | 55 83 67 01 08 0e 0b 94 |....\\H.|U.g.....|
|00001170| 0e 0b 94 d1 5c 5c 4f 82 | 7e 01 08 0e 0b 94 0e 0b |....\\O.|~.......|
|00001180| 94 d0 5c 5c 4f 1e 5c 22 | e3 e4 0e 5c 22 96 0e 25 |..\\O.\"|...\"..%|
|00001190| 5c 22 41 21 29 16 0b 08 | 0e 5c 6e 94 0e 5c 6e 95 |\"A!)...|.\n..\n.|
|000011a0| 4f 16 5c 6e 08 0e 09 94 | 0e 09 95 4f 16 09 0e 08 |O.\n....|...O....|
|000011b0| 83 a3 01 08 0e 08 94 0e | 08 95 4f 16 08 0e 5c 66 |........|..O...\f|
|000011c0| 83 b7 01 e6 0e 5c 66 0e | 0b 0e 5c 6e 0e 09 0e 08 |.....\f.|..\n....|
|000011d0| 25 82 be 01 e6 e7 89 89 | 89 c6 25 2e 06 87 22 20 |%.......|..%..." |
|000011e0| 5b 64 61 74 65 20 74 65 | 78 74 2d 70 72 6f 70 65 |[date te|xt-prope|
|000011f0| 72 74 69 65 73 2d 61 74 | 20 30 20 6e 65 78 74 2d |rties-at| 0 next-|
|00001200| 70 72 6f 70 65 72 74 79 | 2d 63 68 61 6e 67 65 20 |property|-change |
|00001210| 63 6f 70 79 2d 73 65 71 | 75 65 6e 63 65 20 73 65 |copy-seq|uence se|
|00001220| 74 2d 74 65 78 74 2d 70 | 72 6f 70 65 72 74 69 65 |t-text-p|ropertie|
|00001230| 73 20 6e 69 6c 20 22 22 | 20 7a 6f 6e 65 20 74 69 |s nil ""| zone ti|
|00001240| 6d 65 20 64 61 79 20 6d | 6f 6e 74 68 20 79 65 61 |me day m|onth yea|
|00001250| 72 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |r string|-match "|
|00001260| 5c 5c 28 5b 5e 20 09 2c | 5d 2b 5c 5c 29 2c 5b 20 |\\([^ .,|]+\\),[ |
|00001270| 09 5d 2b 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 5b |.]+\\([0|-9]+\\)[|
|00001280| 20 09 5d 2b 5c 5c 28 5b | 5e 20 09 2c 5d 2b 5c 5c | .]+\\([|^ .,]+\\|
|00001290| 29 5b 20 09 5d 2b 5c 5c | 28 5b 30 2d 39 5d 2b 3a |)[ .]+\\|([0-9]+:|
|000012a0| 5b 30 2d 39 3a 5d 2b 5c | 5c 29 5b 20 09 5d 2b 5c |[0-9:]+\|\)[ .]+\|
|000012b0| 5c 28 54 5b 20 09 5d 2b | 5c 5c 7c 5c 5c 29 5c 5c |\(T[ .]+|\\|\\)\\|
|000012c0| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5b 20 09 5d 2a 5c |([0-9]+\|\)[ .]*\|
|000012d0| 5c 27 22 20 36 20 33 20 | 32 20 34 20 22 5c 5c 28 |\'" 6 3 |2 4 "\\(|
|000012e0| 5b 5e 20 09 2c 5d 2b 5c | 5c 29 2c 5b 20 09 5d 2b |[^ .,]+\|\),[ .]+|
|000012f0| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 5b 20 09 5d |\\([0-9]|+\\)[ .]|
|00001300| 2b 5c 5c 28 5b 5e 20 09 | 2c 5d 2b 5c 5c 29 5b 20 |+\\([^ .|,]+\\)[ |
|00001310| 09 5d 2b 5c 5c 28 5b 30 | 2d 39 5d 2b 3a 5b 30 2d |.]+\\([0|-9]+:[0-|
|00001320| 39 3a 5d 2b 5c 5c 29 5b | 20 09 5d 2b 5c 5c 28 54 |9:]+\\)[| .]+\\(T|
|00001330| 5b 20 09 5d 2b 5c 5c 7c | 5c 5c 29 5c 5c 28 5b 30 |[ .]+\\||\\)\\([0|
|00001340| 2d 39 5d 2b 5c 5c 29 5b | 20 09 5d 2a 5c 5c 28 5b |-9]+\\)[| .]*\\([|
|00001350| 2d 2b 61 2d 7a 41 2d 5a | 30 2d 39 5d 2b 5c 5c 29 |-+a-zA-Z|0-9]+\\)|
|00001360| 22 20 37 20 22 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |" 7 "\\(|[0-9]+\\|
|00001370| 29 5b 20 09 5d 2b 5c 5c | 28 5b 5e 20 09 2c 5d 2b |)[ .]+\\|([^ .,]+|
|00001380| 5c 5c 29 5b 20 09 5d 2b | 5c 5c 28 5b 30 2d 39 5d |\\)[ .]+|\\([0-9]|
|00001390| 2b 5c 5c 29 5b 20 09 5d | 2b 5c 5c 28 5b 30 2d 39 |+\\)[ .]|+\\([0-9|
|000013a0| 5d 2b 3a 5b 30 2d 39 3a | 5d 2b 5c 5c 29 5b 20 09 |]+:[0-9:|]+\\)[ .|
|000013b0| 5d 2a 5c 5c 27 22 20 31 | 20 22 5c 5c 28 5b 30 2d |]*\\'" 1| "\\([0-|
|000013c0| 39 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 5e |9]+\\)[ |.]+\\([^|
|000013d0| 20 09 2c 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 | .,]+\\)|[ .]+\\(|
|000013e0| 5b 30 2d 39 5d 2b 5c 5c | 29 5b 20 09 5d 2b 5c 5c |[0-9]+\\|)[ .]+\\|
|000013f0| 28 5b 30 2d 39 5d 2b 3a | 5b 30 2d 39 3a 5d 2b 5c |([0-9]+:|[0-9:]+\|
|00001400| 5c 29 5b 20 09 5d 2a 5c | 5c 28 5b 2d 2b 61 2d 7a |\)[ .]*\|\([-+a-z|
|00001410| 41 2d 5a 30 2d 39 5d 2b | 5c 5c 29 22 20 35 20 22 |A-Z0-9]+|\\)" 5 "|
|00001420| 5c 5c 28 5b 5e 20 09 2c | 5d 2b 5c 5c 29 5b 20 09 |\\([^ .,|]+\\)[ .|
|00001430| 5d 2b 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 5b 20 |]+\\([0-|9]+\\)[ |
|00001440| 09 5d 2b 5c 5c 28 5b 30 | 2d 39 5d 2b 3a 5b 30 2d |.]+\\([0|-9]+:[0-|
|00001450| 39 3a 5d 2b 5c 5c 29 5b | 20 09 5d 2b 5c 5c 28 5b |9:]+\\)[| .]+\\([|
|00001460| 30 2d 39 5d 2b 5c 5c 29 | 22 20 22 5c 5c 28 5b 5e |0-9]+\\)|" "\\([^|
|00001470| 20 09 2c 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 | .,]+\\)|[ .]+\\(|
|00001480| 5b 30 2d 39 5d 2b 5c 5c | 29 5b 20 09 5d 2b 5c 5c |[0-9]+\\|)[ .]+\\|
|00001490| 28 5b 30 2d 39 5d 2b 3a | 5b 30 2d 39 3a 5d 2b 5c |([0-9]+:|[0-9:]+\|
|000014a0| 5c 29 5b 20 09 5d 2b 5c | 5c 28 5b 2d 2b 61 2d 7a |\)[ .]+\|\([-+a-z|
|000014b0| 41 2d 5a 30 2d 39 5d 2b | 5c 5c 29 5b 20 09 5d 2b |A-Z0-9]+|\\)[ .]+|
|000014c0| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 22 20 22 5c |\\([0-9]|+\\)" "\|
|000014d0| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 5b 20 09 5d 2b |\([0-9]+|\\)[ .]+|
|000014e0| 5c 5c 28 5b 5e 20 09 2c | 5d 2b 5c 5c 29 5b 20 09 |\\([^ .,|]+\\)[ .|
|000014f0| 5d 2b 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 5b 20 |]+\\([0-|9]+\\)[ |
|00001500| 09 5d 2b 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 5b |.]+\\([0|-9]+\\)[|
|00001510| 20 09 5d 2a 5c 5c 28 5b | 2d 2b 61 2d 7a 41 2d 5a | .]*\\([|-+a-zA-Z|
|00001520| 30 2d 39 5d 2b 5c 5c 29 | 22 20 22 5c 5c 28 5b 30 |0-9]+\\)|" "\\([0|
|00001530| 2d 39 5d 2b 5c 5c 29 2d | 5c 5c 28 5b 41 2d 5a 61 |-9]+\\)-|\\([A-Za|
|00001540| 2d 7a 5d 2b 5c 5c 29 2d | 5c 5c 28 5b 30 2d 39 5d |-z]+\\)-|\\([0-9]|
|00001550| 2b 5c 5c 29 5b 20 09 5d | 2b 5c 5c 28 5b 30 2d 39 |+\\)[ .]|+\\([0-9|
|00001560| 5d 2b 3a 5b 30 2d 39 5d | 2b 3a 5b 30 2d 39 5d 2b |]+:[0-9]|+:[0-9]+|
|00001570| 5c 5c 29 5c 5c 2e 5b 30 | 2d 39 5d 2b 22 20 22 5c |\\)\\.[0|-9]+" "\|
|00001580| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 2d 5c 5c 28 5b |\([0-9]+|\\)-\\([|
|00001590| 30 2d 39 5d 2b 5c 5c 29 | 2d 5c 5c 28 5b 30 2d 39 |0-9]+\\)|-\\([0-9|
|000015a0| 5d 2b 5c 5c 29 5b 20 09 | 5d 2b 5c 5c 28 5b 30 2d |]+\\)[ .|]+\\([0-|
|000015b0| 39 5d 2b 3a 5b 30 2d 39 | 5d 2b 3a 5b 30 2d 39 5d |9]+:[0-9|]+:[0-9]|
|000015c0| 2b 5c 5c 29 5b 20 09 5d | 2a 5c 5c 28 5b 2d 2b 61 |+\\)[ .]|*\\([-+a|
|000015d0| 2d 7a 41 2d 5a 30 2d 39 | 5d 2b 5c 5c 29 22 20 22 |-zA-Z0-9|]+\\)" "|
|000015e0| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 2d 5c 5c 28 |\\([0-9]|+\\)-\\(|
|000015f0| 5b 30 2d 39 5d 2b 5c 5c | 29 2d 5c 5c 28 5b 30 2d |[0-9]+\\|)-\\([0-|
|00001600| 39 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 30 |9]+\\)[ |.]+\\([0|
|00001610| 2d 39 5d 2b 3a 5b 30 2d | 39 5d 2b 3a 5b 30 2d 39 |-9]+:[0-|9]+:[0-9|
|00001620| 5d 2b 5c 5c 29 22 20 22 | 31 39 22 20 2d 32 20 34 |]+\\)" "|19" -2 4|
|00001630| 35 20 73 74 72 69 6e 67 | 20 69 6e 74 2d 74 6f 2d |5 string| int-to-|
|00001640| 73 74 72 69 6e 67 20 61 | 73 73 6f 63 20 74 69 6d |string a|ssoc tim|
|00001650| 65 7a 6f 6e 65 2d 6d 6f | 6e 74 68 73 2d 61 73 73 |ezone-mo|nths-ass|
|00001660| 6f 63 20 76 65 63 74 6f | 72 20 22 30 22 5d 20 37 |oc vecto|r "0"] 7|
|00001670| 20 28 23 24 20 2e 20 33 | 35 38 36 29 5d 29 0a 23 | (#$ . 3|586)]).#|
|00001680| 40 31 30 36 20 50 61 72 | 73 65 20 54 49 4d 45 20 |@106 Par|se TIME |
|00001690| 28 48 48 3a 4d 4d 3a 53 | 53 29 20 61 6e 64 20 72 |(HH:MM:S|S) and r|
|000016a0| 65 74 75 72 6e 20 61 20 | 76 65 63 74 6f 72 20 5b |eturn a |vector [|
|000016b0| 68 6f 75 72 20 6d 69 6e | 75 74 65 20 73 65 63 6f |hour min|ute seco|
|000016c0| 6e 64 5d 2e 0a 52 65 63 | 6f 67 6e 69 7a 65 20 48 |nd]..Rec|ognize H|
|000016d0| 48 3a 4d 4d 3a 53 53 2c | 20 48 48 3a 4d 4d 2c 20 |H:MM:SS,| HH:MM, |
|000016e0| 48 48 4d 4d 53 53 2c 20 | 48 48 4d 4d 2e 1f 0a 28 |HHMMSS, |HHMM...(|
|000016f0| 64 65 66 61 6c 69 61 73 | 20 27 74 69 6d 65 7a 6f |defalias| 'timezo|
|00001700| 6e 65 2d 70 61 72 73 65 | 2d 74 69 6d 65 20 23 5b |ne-parse|-time #[|
|00001710| 28 74 69 6d 65 29 20 22 | 08 86 05 00 c1 c2 89 89 |(time) "|........|
|00001720| 1b 1c 1d 18 c6 c7 08 5c | 22 83 1c 00 c8 15 c9 14 |.......\|".......|
|00001730| ca 13 82 49 00 c6 cb 08 | 5c 22 83 2c 00 c8 15 c9 |...I....|\".,....|
|00001740| 14 c2 13 82 49 00 c6 cc | 08 5c 22 83 3c 00 c8 15 |....I...|.\".<...|
|00001750| c9 14 ca 13 82 49 00 c6 | cd 08 5c 22 83 49 00 c8 |.....I..|..\".I..|
|00001760| 15 c9 14 c2 13 ce 0d 83 | 57 00 08 0d 94 0d 95 4f |........|W......O|
|00001770| 82 58 00 cf 5c 66 83 65 | 00 08 5c 66 94 5c 66 95 |.X..\f.e|..\f.\f.|
|00001780| 4f 82 66 00 cf 0b 83 73 | 00 08 0b 94 0b 95 4f 82 |O.f....s|......O.|
|00001790| 74 00 cf 23 2c 87 22 20 | 5b 74 69 6d 65 20 22 22 |t..#,." |[time ""|
|000017a0| 20 6e 69 6c 20 73 65 63 | 6f 6e 64 20 6d 69 6e 75 | nil sec|ond minu|
|000017b0| 74 65 20 68 6f 75 72 20 | 73 74 72 69 6e 67 2d 6d |te hour |string-m|
|000017c0| 61 74 63 68 20 22 5c 5c | 60 5c 5c 28 5b 30 2d 39 |atch "\\|`\\([0-9|
|000017d0| 5d 2b 5c 5c 29 3a 5c 5c | 28 5b 30 2d 39 5d 2b 5c |]+\\):\\|([0-9]+\|
|000017e0| 5c 29 3a 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 5c |\):\\([0|-9]+\\)\|
|000017f0| 5c 27 22 20 31 20 32 20 | 33 20 22 5c 5c 60 5c 5c |\'" 1 2 |3 "\\`\\|
|00001800| 28 5b 30 2d 39 5d 2b 5c | 5c 29 3a 5c 5c 28 5b 30 |([0-9]+\|\):\\([0|
|00001810| 2d 39 5d 2b 5c 5c 29 5c | 5c 27 22 20 22 5c 5c 60 |-9]+\\)\|\'" "\\`|
|00001820| 5c 5c 28 5b 30 2d 39 5d | 5b 30 2d 39 5d 5c 5c 29 |\\([0-9]|[0-9]\\)|
|00001830| 5c 5c 28 5b 30 2d 39 5d | 5b 30 2d 39 5d 5c 5c 29 |\\([0-9]|[0-9]\\)|
|00001840| 5c 5c 28 5b 30 2d 39 5d | 5b 30 2d 39 5d 5c 5c 29 |\\([0-9]|[0-9]\\)|
|00001850| 5c 5c 27 22 20 22 5c 5c | 60 5c 5c 28 5b 30 2d 39 |\\'" "\\|`\\([0-9|
|00001860| 5d 5b 30 2d 39 5d 5c 5c | 29 5c 5c 28 5b 30 2d 39 |][0-9]\\|)\\([0-9|
|00001870| 5d 5b 30 2d 39 5d 5c 5c | 29 5c 5c 27 22 20 76 65 |][0-9]\\|)\\'" ve|
|00001880| 63 74 6f 72 20 22 30 22 | 5d 20 36 20 28 23 24 20 |ctor "0"|] 6 (#$ |
|00001890| 2e 20 35 37 36 35 29 5d | 29 0a 23 40 31 38 35 20 |. 5765)]|).#@185 |
|000018a0| 54 72 61 6e 73 6c 61 74 | 65 20 54 49 4d 45 5a 4f |Translat|e TIMEZO|
|000018b0| 4e 45 20 74 6f 20 61 6e | 20 69 6e 74 65 67 65 72 |NE to an| integer|
|000018c0| 20 6d 69 6e 75 74 65 20 | 6f 66 66 73 65 74 20 66 | minute |offset f|
|000018d0| 72 6f 6d 20 47 4d 54 2e | 0a 54 49 4d 45 5a 4f 4e |rom GMT.|.TIMEZON|
|000018e0| 45 20 63 61 6e 20 62 65 | 20 61 20 63 6f 6e 73 20 |E can be| a cons |
|000018f0| 63 65 6c 6c 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |cell con|taining |
|00001900| 74 68 65 20 6f 75 74 70 | 75 74 20 6f 66 20 63 75 |the outp|ut of cu|
|00001910| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 7a 6f 6e 65 2c |rrent-ti|me-zone,|
|00001920| 0a 6f 72 20 61 6e 20 69 | 6e 74 65 67 65 72 20 6f |.or an i|nteger o|
|00001930| 66 20 74 68 65 20 66 6f | 72 6d 20 2b 2d 48 48 4d |f the fo|rm +-HHM|
|00001940| 4d 2c 20 6f 72 20 61 20 | 74 69 6d 65 20 7a 6f 6e |M, or a |time zon|
|00001950| 65 20 6e 61 6d 65 2e 1f | 0a 28 64 65 66 61 6c 69 |e name..|.(defali|
|00001960| 61 73 20 27 74 69 6d 65 | 7a 6f 6e 65 2d 7a 6f 6e |as 'time|zone-zon|
|00001970| 65 2d 74 6f 2d 6d 69 6e | 75 74 65 20 23 5b 28 74 |e-to-min|ute #[(t|
|00001980| 69 6d 65 7a 6f 6e 65 29 | 20 22 08 3a 83 5c 6e 00 |imezone)| ".:.\n.|
|00001990| 08 40 c1 a5 87 08 83 43 | 00 c2 08 96 0b 5c 22 41 |.@.....C|.....\"A|
|000019a0| 86 18 00 08 89 10 3b 83 | 5c 22 00 c4 08 21 10 c5 |......;.|\"...!..|
|000019b0| 08 21 89 1e 06 c7 a5 c1 | 5f 0e 06 c7 a6 5c 5c 1e |.!......|_....\\.|
|000019c0| 08 08 c9 57 83 3f 00 0e | 08 5b 82 41 00 0e 08 2a |...W.?..|.[.A...*|
|000019d0| 87 c9 87 22 20 5b 74 69 | 6d 65 7a 6f 6e 65 20 36 |..." [ti|mezone 6|
|000019e0| 30 20 61 73 73 6f 63 20 | 74 69 6d 65 7a 6f 6e 65 |0 assoc |timezone|
|000019f0| 2d 77 6f 72 6c 64 2d 74 | 69 6d 65 7a 6f 6e 65 73 |-world-t|imezones|
|00001a00| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 61 | string-|to-int a|
|00001a10| 62 73 20 61 62 73 7a 6f | 6e 65 20 31 30 30 20 6d |bs abszo|ne 100 m|
|00001a20| 69 6e 75 74 65 73 20 30 | 5d 20 34 20 28 23 24 20 |inutes 0|] 4 (#$ |
|00001a30| 2e 20 36 33 30 34 29 5d | 29 0a 23 40 32 37 39 20 |. 6304)]|).#@279 |
|00001a40| 43 6f 6d 70 75 74 65 20 | 74 68 65 20 55 54 43 20 |Compute |the UTC |
|00001a50| 74 69 6d 65 20 65 71 75 | 69 76 61 6c 65 6e 74 20 |time equ|ivalent |
|00001a60| 74 6f 20 44 41 54 45 20 | 61 74 20 74 69 6d 65 20 |to DATE |at time |
|00001a70| 53 45 43 4f 4e 44 53 20 | 61 66 74 65 72 20 6d 69 |SECONDS |after mi|
|00001a80| 64 6e 69 67 68 74 2e 0a | 52 65 74 75 72 6e 20 61 |dnight..|Return a|
|00001a90| 20 6c 69 73 74 20 73 75 | 69 74 61 62 6c 65 20 61 | list su|itable a|
|00001aa0| 73 20 61 6e 20 61 72 67 | 75 6d 65 6e 74 20 74 6f |s an arg|ument to|
|00001ab0| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 7a 6f | current|-time-zo|
|00001ac0| 6e 65 2c 0a 6f 72 20 6e | 69 6c 20 69 66 20 74 68 |ne,.or n|il if th|
|00001ad0| 65 20 64 61 74 65 20 63 | 61 6e 6e 6f 74 20 62 65 |e date c|annot be|
|00001ae0| 20 74 68 75 73 20 72 65 | 70 72 65 73 65 6e 74 65 | thus re|presente|
|00001af0| 64 2e 0a 44 41 54 45 20 | 69 73 20 74 68 65 20 6e |d..DATE |is the n|
|00001b00| 75 6d 62 65 72 20 6f 66 | 20 64 61 79 73 20 65 6c |umber of| days el|
|00001b10| 61 70 73 65 64 20 73 69 | 6e 63 65 20 74 68 65 20 |apsed si|nce the |
|00001b20| 28 69 6d 61 67 69 6e 61 | 72 79 29 0a 47 72 65 67 |(imagina|ry).Greg|
|00001b30| 6f 72 69 61 6e 20 64 61 | 74 65 20 53 75 6e 64 61 |orian da|te Sunda|
|00001b40| 79 2c 20 44 65 63 65 6d | 62 65 72 20 33 31 2c 20 |y, Decem|ber 31, |
|00001b50| 31 20 42 43 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |1 BC...(|defalias|
|00001b60| 20 27 74 69 6d 65 7a 6f | 6e 65 2d 74 69 6d 65 2d | 'timezo|ne-time-|
|00001b70| 66 72 6f 6d 2d 61 62 73 | 6f 6c 75 74 65 20 23 5b |from-abs|olute #[|
|00001b80| 28 64 61 74 65 20 73 65 | 63 6f 6e 64 73 29 20 22 |(date se|conds) "|
|00001b90| c0 19 5c 6e 09 5a 1b c4 | c5 21 1e 06 0e 07 0b 0e |..\n.Z..|.!......|
|00001ba0| 06 5f 5c 5c 1e 07 c4 c8 | 21 1e 09 ca 0e 07 0e 09 |._\\....|!.......|
|00001bb0| a5 21 89 1e 0b 0e 09 5f | 1e 5c 66 ca 0e 07 0e 5c |.!....._|.\f....\|
|00001bc0| 66 5a 21 1e 0d ce 0e 07 | 0e 5c 66 0e 0d 5c 5c 5a |fZ!.....|.\f..\\Z|
|00001bd0| 21 cf 57 85 45 00 0e 0b | 0e 0d 42 2e 08 87 22 20 |!.W.E...|..B..." |
|00001be0| 5b 37 31 39 31 36 32 20 | 63 75 72 72 65 6e 74 2d |[719162 |current-|
|00001bf0| 74 69 6d 65 2d 6f 72 69 | 67 69 6e 20 64 61 74 65 |time-ori|gin date|
|00001c00| 20 64 61 79 73 20 66 6c | 6f 61 74 20 38 36 34 30 | days fl|oat 8640|
|00001c10| 30 20 73 65 63 6f 6e 64 | 73 2d 70 65 72 2d 64 61 |0 second|s-per-da|
|00001c20| 79 20 73 65 63 6f 6e 64 | 73 20 36 35 35 33 36 20 |y second|s 65536 |
|00001c30| 63 75 72 72 65 6e 74 2d | 74 69 6d 65 2d 61 72 69 |current-|time-ari|
|00001c40| 74 68 6d 65 74 69 63 2d | 62 61 73 65 20 66 6c 6f |thmetic-|base flo|
|00001c50| 6f 72 20 68 69 20 68 69 | 62 61 73 65 20 6c 6f 20 |or hi hi|base lo |
|00001c60| 61 62 73 20 32 5d 20 35 | 20 28 23 24 20 2e 20 36 |abs 2] 5| (#$ . 6|
|00001c70| 37 32 30 29 5d 29 0a 23 | 40 32 38 36 20 43 6f 6d |720)]).#|@286 Com|
|00001c80| 70 75 74 65 20 74 68 65 | 20 6c 6f 63 61 6c 20 74 |pute the| local t|
|00001c90| 69 6d 65 20 7a 6f 6e 65 | 20 66 6f 72 20 44 41 54 |ime zone| for DAT|
|00001ca0| 45 20 61 74 20 74 69 6d | 65 20 53 45 43 4f 4e 44 |E at tim|e SECOND|
|00001cb0| 53 20 61 66 74 65 72 20 | 6d 69 64 6e 69 67 68 74 |S after |midnight|
|00001cc0| 2e 0a 52 65 74 75 72 6e | 20 61 20 6c 69 73 74 20 |..Return| a list |
|00001cd0| 69 6e 20 74 68 65 20 73 | 61 6d 65 20 66 6f 72 6d |in the s|ame form|
|00001ce0| 61 74 20 61 73 20 63 75 | 72 72 65 6e 74 2d 74 69 |at as cu|rrent-ti|
|00001cf0| 6d 65 2d 7a 6f 6e 65 27 | 73 20 72 65 73 75 6c 74 |me-zone'|s result|
|00001d00| 2c 0a 6f 72 20 6e 69 6c | 20 69 66 20 74 68 65 20 |,.or nil| if the |
|00001d10| 6c 6f 63 61 6c 20 74 69 | 6d 65 20 7a 6f 6e 65 20 |local ti|me zone |
|00001d20| 63 6f 75 6c 64 20 6e 6f | 74 20 62 65 20 63 6f 6d |could no|t be com|
|00001d30| 70 75 74 65 64 2e 0a 44 | 41 54 45 20 69 73 20 74 |puted..D|ATE is t|
|00001d40| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 64 61 79 |he numbe|r of day|
|00001d50| 73 20 65 6c 61 70 73 65 | 64 20 73 69 6e 63 65 20 |s elapse|d since |
|00001d60| 74 68 65 20 28 69 6d 61 | 67 69 6e 61 72 79 29 0a |the (ima|ginary).|
|00001d70| 47 72 65 67 6f 72 69 61 | 6e 20 64 61 74 65 20 53 |Gregoria|n date S|
|00001d80| 75 6e 64 61 79 2c 20 44 | 65 63 65 6d 62 65 72 20 |unday, D|ecember |
|00001d90| 33 31 2c 20 31 20 42 43 | 2e 1f 0a 28 64 65 66 61 |31, 1 BC|...(defa|
|00001da0| 6c 69 61 73 20 27 74 69 | 6d 65 7a 6f 6e 65 2d 74 |lias 'ti|mezone-t|
|00001db0| 69 6d 65 2d 7a 6f 6e 65 | 2d 66 72 6f 6d 2d 61 62 |ime-zone|-from-ab|
|00001dc0| 73 6f 6c 75 74 65 20 23 | 5b 28 64 61 74 65 20 73 |solute #|[(date s|
|00001dd0| 65 63 6f 6e 64 73 29 20 | 22 c0 c1 21 85 1d 00 c2 |econds) |"..!....|
|00001de0| 0b 5c 66 5c 22 89 1d 85 | 1c 00 c1 0d 21 89 1e 06 |.\f\"...|....!...|
|00001df0| 40 85 1b 00 0e 06 29 29 | 87 22 20 5b 66 62 6f 75 |@.....))|." [fbou|
|00001e00| 6e 64 70 20 63 75 72 72 | 65 6e 74 2d 74 69 6d 65 |ndp curr|ent-time|
|00001e10| 2d 7a 6f 6e 65 20 74 69 | 6d 65 7a 6f 6e 65 2d 74 |-zone ti|mezone-t|
|00001e20| 69 6d 65 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |ime-from|-absolut|
|00001e30| 65 20 64 61 74 65 20 73 | 65 63 6f 6e 64 73 20 75 |e date s|econds u|
|00001e40| 74 63 2d 74 69 6d 65 20 | 7a 6f 6e 65 5d 20 34 20 |tc-time |zone] 4 |
|00001e50| 28 23 24 20 2e 20 37 32 | 39 33 29 5d 29 0a 23 40 |(#$ . 72|93)]).#@|
|00001e60| 31 36 32 20 43 6f 6e 76 | 65 72 74 20 44 41 54 45 |162 Conv|ert DATE|
|00001e70| 20 28 64 65 66 61 75 6c | 74 20 74 69 6d 65 7a 6f | (defaul|t timezo|
|00001e80| 6e 65 20 4c 4f 43 41 4c | 29 20 74 6f 20 59 59 59 |ne LOCAL|) to YYY|
|00001e90| 59 2d 4d 4d 2d 44 44 2d | 48 48 2d 4d 4d 2d 53 53 |Y-MM-DD-|HH-MM-SS|
|00001ea0| 2d 5a 4f 4e 45 20 76 65 | 63 74 6f 72 2e 0a 49 66 |-ZONE ve|ctor..If|
|00001eb0| 20 4c 4f 43 41 4c 20 69 | 73 20 6e 69 6c 2c 20 69 | LOCAL i|s nil, i|
|00001ec0| 74 20 69 73 20 61 73 73 | 75 6d 65 64 20 74 6f 20 |t is ass|umed to |
|00001ed0| 62 65 20 47 4d 54 2e 0a | 49 66 20 54 49 4d 45 5a |be GMT..|If TIMEZ|
|00001ee0| 4f 4e 45 20 69 73 20 6e | 69 6c 2c 20 75 73 65 20 |ONE is n|il, use |
|00001ef0| 74 68 65 20 6c 6f 63 61 | 6c 20 74 69 6d 65 20 7a |the loca|l time z|
|00001f00| 6f 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |one...(d|efalias |
|00001f10| 27 74 69 6d 65 7a 6f 6e | 65 2d 66 69 78 2d 74 69 |'timezon|e-fix-ti|
|00001f20| 6d 65 20 23 5b 28 64 61 | 74 65 20 6c 6f 63 61 6c |me #[(da|te local|
|00001f30| 20 74 69 6d 65 7a 6f 6e | 65 29 20 22 c0 09 21 19 | timezon|e) "..!.|
|00001f40| c2 09 c3 48 21 89 1c c5 | 57 83 16 00 5c 66 c6 5c |...H!...|W...\f.\|
|00001f50| 5c 82 23 00 5c 66 c7 57 | 83 5c 22 00 5c 66 c8 5c |\.#.\f.W|.\".\f.\|
|00001f60| 5c 82 23 00 5c 66 1c c2 | 09 c9 48 21 1e 5c 6e c2 |\.#.\f..|..H!.\n.|
|00001f70| 09 cb 48 21 1e 5c 66 cd | 09 ce 48 21 1e 0f c2 0e |..H!.\f.|..H!....|
|00001f80| 0f c3 48 21 1e 10 c2 0e | 0f c9 48 21 1e 11 c2 0e |..H!....|..H!....|
|00001f90| 0f cb 48 21 1e 12 09 d3 | 48 86 59 00 0e 14 1e 14 |..H!....|H.Y.....|
|00001fa0| 0e 15 86 75 00 d6 d7 0e | 5c 6e 0e 5c 66 5c 66 23 |...u....|\n.\f\f#|
|00001fb0| 0e 12 0e 11 0e 10 d8 5f | 5c 5c d8 5f 5c 5c 5c 22 |......._|\\._\\\"|
|00001fc0| 1e 15 d9 0e 15 21 d9 0e | 14 21 5a 1e 1a 0e 11 0e |.....!..|.!Z.....|
|00001fd0| 1a 5c 5c 1e 11 db 0e 11 | d8 5c 22 1e 1c 0e 10 0e |.\\.....|.\".....|
|00001fe0| 1c 5c 5c 16 10 0e 11 0e | 1c d8 5f 5a 16 11 dd 0e |.\\.....|.._Z....|
|00001ff0| 10 58 83 d5 00 0e 10 dd | 5a 16 10 0e 5c 66 54 16 |.X......|Z...\fT.|
|00002000| 5c 66 de 0e 5c 6e 5c 66 | 5c 22 0e 5c 66 57 83 07 |\f..\n\f|\".\fW..|
|00002010| 01 0e 5c 6e 54 16 5c 6e | c9 16 5c 66 df 0e 5c 6e |..\nT.\n|..\f..\n|
|00002020| 57 83 07 01 c9 16 5c 6e | 5c 66 54 14 82 07 01 c3 |W.....\n|\fT.....|
|00002030| 0e 10 56 83 07 01 0e 10 | dd 5c 5c 16 10 0e 5c 66 |..V.....|.\\...\f|
|00002040| 53 16 5c 66 c9 0e 5c 66 | 56 83 07 01 0e 5c 6e 53 |S.\f..\f|V....\nS|
|00002050| 16 5c 6e c9 0e 5c 6e 56 | 83 00 01 df 16 5c 6e 5c |.\n..\nV|.....\n\|
|00002060| 66 53 14 de 0e 5c 6e 5c | 66 5c 22 16 5c 66 e0 5c |fS...\n\|f\".\f.\|
|00002070| 66 0e 5c 6e 0e 5c 66 0e | 10 0e 11 0e 12 0e 15 26 |f.\n.\f.|.......&|
|00002080| 07 2e 0e 87 22 20 5b 74 | 69 6d 65 7a 6f 6e 65 2d |...." [t|imezone-|
|00002090| 70 61 72 73 65 2d 64 61 | 74 65 20 64 61 74 65 20 |parse-da|te date |
|000020a0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 30 20 |string-t|o-int 0 |
|000020b0| 79 65 61 72 20 35 30 20 | 32 30 30 30 20 31 30 30 |year 50 |2000 100|
|000020c0| 20 31 39 30 30 20 31 20 | 6d 6f 6e 74 68 20 32 20 | 1900 1 |month 2 |
|000020d0| 64 61 79 20 74 69 6d 65 | 7a 6f 6e 65 2d 70 61 72 |day time|zone-par|
|000020e0| 73 65 2d 74 69 6d 65 20 | 33 20 74 69 6d 65 20 68 |se-time |3 time h|
|000020f0| 6f 75 72 20 6d 69 6e 75 | 74 65 20 73 65 63 6f 6e |our minu|te secon|
|00002100| 64 20 34 20 6c 6f 63 61 | 6c 20 74 69 6d 65 7a 6f |d 4 loca|l timezo|
|00002110| 6e 65 20 74 69 6d 65 7a | 6f 6e 65 2d 74 69 6d 65 |ne timez|one-time|
|00002120| 2d 7a 6f 6e 65 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |-zone-fr|om-absol|
|00002130| 75 74 65 20 74 69 6d 65 | 7a 6f 6e 65 2d 61 62 73 |ute time|zone-abs|
|00002140| 6f 6c 75 74 65 2d 66 72 | 6f 6d 2d 67 72 65 67 6f |olute-fr|om-grego|
|00002150| 72 69 61 6e 20 36 30 20 | 74 69 6d 65 7a 6f 6e 65 |rian 60 |timezone|
|00002160| 2d 7a 6f 6e 65 2d 74 6f | 2d 6d 69 6e 75 74 65 20 |-zone-to|-minute |
|00002170| 64 69 66 66 20 66 6c 6f | 6f 72 20 68 6f 75 72 2d |diff flo|or hour-|
|00002180| 66 69 78 20 32 34 20 74 | 69 6d 65 7a 6f 6e 65 2d |fix 24 t|imezone-|
|00002190| 6c 61 73 74 2d 64 61 79 | 2d 6f 66 2d 6d 6f 6e 74 |last-day|-of-mont|
|000021a0| 68 20 31 32 20 76 65 63 | 74 6f 72 5d 20 39 20 28 |h 12 vec|tor] 9 (|
|000021b0| 23 24 20 2e 20 37 37 38 | 30 29 5d 29 0a 23 40 33 |#$ . 778|0)]).#@3|
|000021c0| 36 20 54 68 65 20 6c 61 | 73 74 20 64 61 79 20 69 |6 The la|st day i|
|000021d0| 6e 20 4d 4f 4e 54 48 20 | 64 75 72 69 6e 67 20 59 |n MONTH |during Y|
|000021e0| 45 41 52 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |EAR...(d|efalias |
|000021f0| 27 74 69 6d 65 7a 6f 6e | 65 2d 6c 61 73 74 2d 64 |'timezon|e-last-d|
|00002200| 61 79 2d 6f 66 2d 6d 6f | 6e 74 68 20 23 5b 28 6d |ay-of-mo|nth #[(m|
|00002210| 6f 6e 74 68 20 79 65 61 | 72 29 20 22 08 c1 55 83 |onth yea|r) "..U.|
|00002220| 0e 00 c2 0b 21 83 0e 00 | c4 87 c5 08 53 48 87 22 |....!...|....SH."|
|00002230| 20 5b 6d 6f 6e 74 68 20 | 32 20 74 69 6d 65 7a 6f | [month |2 timezo|
|00002240| 6e 65 2d 6c 65 61 70 2d | 79 65 61 72 2d 70 20 79 |ne-leap-|year-p y|
|00002250| 65 61 72 20 32 39 20 5b | 33 31 20 32 38 20 33 31 |ear 29 [|31 28 31|
|00002260| 20 33 30 20 33 31 20 33 | 30 20 33 31 20 33 31 20 | 30 31 3|0 31 31 |
|00002270| 33 30 20 33 31 20 33 30 | 20 33 31 5d 5d 20 32 20 |30 31 30| 31]] 2 |
|00002280| 28 23 24 20 2e 20 38 36 | 34 32 29 5d 29 0a 23 40 |(#$ . 86|42)]).#@|
|00002290| 34 35 20 52 65 74 75 72 | 6e 73 20 74 20 69 66 20 |45 Retur|ns t if |
|000022a0| 59 45 41 52 20 69 73 20 | 61 20 47 72 65 67 6f 72 |YEAR is |a Gregor|
|000022b0| 69 61 6e 20 6c 65 61 70 | 20 79 65 61 72 2e 1f 0a |ian leap| year...|
|000022c0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|000022d0| 6f 6e 65 2d 6c 65 61 70 | 2d 79 65 61 72 2d 70 20 |one-leap|-year-p |
|000022e0| 23 5b 28 79 65 61 72 29 | 20 22 08 c1 a6 c2 55 83 |#[(year)| "....U.|
|000022f0| 11 00 08 c3 a6 c2 55 3f | 86 16 00 08 c4 a6 c2 55 |......U?|.......U|
|00002300| 87 22 20 5b 79 65 61 72 | 20 34 20 30 20 31 30 30 |." [year| 4 0 100|
|00002310| 20 34 30 30 5d 20 32 20 | 28 23 24 20 2e 20 38 38 | 400] 2 |(#$ . 88|
|00002320| 35 31 29 5d 29 0a 23 40 | 36 37 20 52 65 74 75 72 |51)]).#@|67 Retur|
|00002330| 6e 20 74 68 65 20 64 61 | 79 20 6e 75 6d 62 65 72 |n the da|y number|
|00002340| 20 77 69 74 68 69 6e 20 | 74 68 65 20 79 65 61 72 | within |the year|
|00002350| 20 6f 66 20 74 68 65 20 | 64 61 74 65 20 6d 6f 6e | of the |date mon|
|00002360| 74 68 2f 64 61 79 2f 79 | 65 61 72 2e 1f 0a 28 64 |th/day/y|ear...(d|
|00002370| 65 66 61 6c 69 61 73 20 | 27 74 69 6d 65 7a 6f 6e |efalias |'timezon|
|00002380| 65 2d 64 61 79 2d 6e 75 | 6d 62 65 72 20 23 5b 28 |e-day-nu|mber #[(|
|00002390| 6d 6f 6e 74 68 20 64 61 | 79 20 79 65 61 72 29 20 |month da|y year) |
|000023a0| 22 08 09 53 c2 5f 5c 5c | 1b 09 c4 56 83 21 00 0b |"..S._\\|...V.!..|
|000023b0| 09 c5 5f c6 5c 5c c7 a5 | 5a 13 c8 0e 09 21 83 21 |.._.\\..|Z....!.!|
|000023c0| 00 0b 54 13 0b 29 87 22 | 20 5b 64 61 79 20 6d 6f |..T..)."| [day mo|
|000023d0| 6e 74 68 20 33 31 20 64 | 61 79 2d 6f 66 2d 79 65 |nth 31 d|ay-of-ye|
|000023e0| 61 72 20 32 20 34 20 32 | 33 20 31 30 20 74 69 6d |ar 2 4 2|3 10 tim|
|000023f0| 65 7a 6f 6e 65 2d 6c 65 | 61 70 2d 79 65 61 72 2d |ezone-le|ap-year-|
|00002400| 70 20 79 65 61 72 5d 20 | 33 20 28 23 24 20 2e 20 |p year] |3 (#$ . |
|00002410| 39 30 30 33 29 5d 29 0a | 23 40 31 33 37 20 54 68 |9003)]).|#@137 Th|
|00002420| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 64 61 79 73 |e number| of days|
|00002430| 20 62 65 74 77 65 65 6e | 20 74 68 65 20 47 72 65 | between| the Gre|
|00002440| 67 6f 72 69 61 6e 20 64 | 61 74 65 20 31 32 2f 33 |gorian d|ate 12/3|
|00002450| 31 2f 31 20 42 43 20 61 | 6e 64 20 6d 6f 6e 74 68 |1/1 BC a|nd month|
|00002460| 2f 64 61 79 2f 79 65 61 | 72 2e 0a 54 68 65 20 47 |/day/yea|r..The G|
|00002470| 72 65 67 6f 72 69 61 6e | 20 64 61 74 65 20 53 75 |regorian| date Su|
|00002480| 6e 64 61 79 2c 20 44 65 | 63 65 6d 62 65 72 20 33 |nday, De|cember 3|
|00002490| 31 2c 20 31 20 42 43 20 | 69 73 20 69 6d 61 67 69 |1, 1 BC |is imagi|
|000024a0| 6e 61 72 79 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |nary...(|defalias|
|000024b0| 20 27 74 69 6d 65 7a 6f | 6e 65 2d 61 62 73 6f 6c | 'timezo|ne-absol|
|000024c0| 75 74 65 2d 66 72 6f 6d | 2d 67 72 65 67 6f 72 69 |ute-from|-gregori|
|000024d0| 61 6e 20 23 5b 28 6d 6f | 6e 74 68 20 64 61 79 20 |an #[(mo|nth day |
|000024e0| 79 65 61 72 29 20 22 c0 | 09 5c 6e 0b 23 0b 53 c4 |year) ".|.\n.#.S.|
|000024f0| 5f 5c 5c 0b 53 c5 a5 5c | 5c 0b 53 c6 a5 5b 5c 5c |_\\.S..\|\.S..[\\|
|00002500| 0b 53 c7 a5 5c 5c 87 22 | 20 5b 74 69 6d 65 7a 6f |.S..\\."| [timezo|
|00002510| 6e 65 2d 64 61 79 2d 6e | 75 6d 62 65 72 20 6d 6f |ne-day-n|umber mo|
|00002520| 6e 74 68 20 64 61 79 20 | 79 65 61 72 20 33 36 35 |nth day |year 365|
|00002530| 20 34 20 31 30 30 20 34 | 30 30 5d 20 34 20 28 23 | 4 100 4|00] 4 (#|
|00002540| 24 20 2e 20 39 32 34 36 | 29 5d 29 0a             |$ . 9246|)]).    |
+--------+-------------------------+-------------------------+--------+--------+